Game Zone - 1,000+ Games/GAMEZONE.BIN/Programs/Win/DARTS 95/Darts95.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-11-04 | 8KB | 396 lines

object Form1: TForm1
  Left = 196
  Top = 105
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Darts 95'
  ClientHeight = 352
  ClientWidth = 339
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MM
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 4
    Top = 0
    Width = 25
    Height = 9
    AutoSize = False
    Caption = 'Time:'
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 12
    Width = 337
    Height = 337
    BevelWidth = 3
    TabOrder = 0
    object SpritesPad1: TSpritesPad
      Left = 8
      Top = 8
      Width = 318
      Height = 320
      BkgrBitmap = 'table.BMP'
      X = 0
      Y = 0
    end
    object ASprite2: TASprite
      Left = 52
      Top = 56
      Width = 50
      Height = 50
      AnimTime = 0
      Sprite = 'Hit.spr'
      X = 52
      Y = 56
      SpritesPad = SpritesPad1
      Loop = False
    end
    object ASprite3: TASprite
      Left = 108
      Top = 56
      Width = 50
      Height = 50
      AnimTime = 0
      Sprite = 'Hit.spr'
      X = 108
      Y = 56
      SpritesPad = SpritesPad1
      Loop = False
    end
    object ASprite4: TASprite
      Left = 164
      Top = 56
      Width = 50
      Height = 50
      AnimTime = 0
      Sprite = 'Hit.spr'
      X = 164
      Y = 56
      SpritesPad = SpritesPad1
      Loop = False
    end
    object ASprite1: TASprite
      Left = 12
      Top = 124
      Width = 150
      Height = 130
      AnimTime = 0
      Sprite = 'Hand.spr'
      X = 12
      Y = 124
      SpritesPad = SpritesPad1
    end
    object MP1: TMediaPlayer
      Left = 40
      Top = 96
      Width = 253
      Height = 30
      AutoOpen = True
      DeviceType = dtWaveAudio
      FileName = 'Hit.wav'
      Visible = False
      TabOrder = 0
    end
  end
  object Panel8: TPanel
    Left = 12
    Top = 24
    Width = 57
    Height = 41
    BevelInner = bvLowered
    BevelWidth = 3
    Caption = '301'
    Color = clBlack
    Font.Color = clWhite
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object Panel9: TPanel
    Left = 264
    Top = 24
    Width = 57
    Height = 41
    BevelInner = bvLowered
    BevelWidth = 3
    Caption = '301'
    Color = clBlack
    Font.Color = clWhite
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object Panel10: TPanel
    Left = 12
    Top = 292
    Width = 57
    Height = 41
    BevelInner = bvLowered
    BevelWidth = 3
    Caption = '301'
    Color = clBlack
    Font.Color = clWhite
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
  end
  object Panel11: TPanel
    Left = 264
    Top = 292
    Width = 57
    Height = 41
    BevelInner = bvLowered
    BevelWidth = 3
    Caption = '301'
    Color = clBlack
    Font.Color = clWhite
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
  end
  object Panel3: TPanel
    Left = 76
    Top = 24
    Width = 181
    Height = 41
    BevelInner = bvLowered
    BevelWidth = 3
    Caption = 'PLAYER 1'
    Color = clBlack
    Font.Color = clWhite
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    Visible = False
  end
  object PB: TProgressBar
    Left = 32
    Top = 0
    Width = 305
    Height = 9
    Min = 0
    Max = 20
    Position = 20
    TabOrder = 6
    Visible = False
  end
  object Panel2: TPanel
    Left = 52
    Top = 136
    Width = 233
    Height = 41
    BevelInner = bvLowered
    BevelWidth = 3
    Caption = 'THE WINNER IS PLAYER 1'
    Color = clRed
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    Visible = False
  end
  object Panel4: TPanel
    Left = 52
    Top = 172
    Width = 233
    Height = 41
    BevelInner = bvLowered
    BevelWidth = 3
    Caption = 'BUST'
    Color = clRed
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    Visible = False
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 30
    OnTimer = Timer1Timer
    Left = 16
    Top = 72
  end
  object MM: TMainMenu
    Left = 296
    Top = 96
    object Game1: TMenuItem
      Caption = '&Game'
      ShortCut = 0
      object NewGame1: TMenuItem
        Caption = '&New Game'
        ShortCut = 113
        OnClick = NewGame1Click
      end
      object EndGame1: TMenuItem
        Caption = '&End Game'
        ShortCut = 114
        OnClick = EndGame1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Setup1: TMenuItem
      Caption = '&Setup'
      ShortCut = 0
      object Game2: TMenuItem
        Caption = '&Game type'
        ShortCut = 0
        object Classic1: TMenuItem
          Caption = '&Classic'
          Checked = True
          ShortCut = 0
          OnClick = Classic1Click
        end
        object N4: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object TimeHit1: TMenuItem
          Caption = 'Classic + &Time limit'
          ShortCut = 0
          OnClick = TimeHit1Click
        end
        object ChangeTimeLimit1: TMenuItem
          Caption = 'Change Time &Limit'
          ShortCut = 0
          OnClick = ChangeTimeLimit1Click
        end
        object N5: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object HumanvsComputer1: TMenuItem
          Caption = '&Human vs. Computer'
          ShortCut = 0
          OnClick = HumanvsComputer1Click
        end
        object ChangeComputerPlayer1: TMenuItem
          Caption = 'Change &Computer Player'
          ShortCut = 0
          OnClick = ChangeComputerPlayer1Click
        end
      end
      object NoofPlayers1: TMenuItem
        Caption = 'No of Players'
        ShortCut = 0
        object N1Player1: TMenuItem
          Caption = '&1 Player'
          Checked = True
          GroupIndex = 1
          ShortCut = 0
          OnClick = N1Player1Click
        end
        object N2Players1: TMenuItem
          Caption = '&2 Players'
          GroupIndex = 1
          ShortCut = 0
          OnClick = N2Players1Click
        end
        object N3Players1: TMenuItem
          Caption = '&3 Players'
          GroupIndex = 1
          ShortCut = 0
          OnClick = N3Players1Click
        end
        object N4Players1: TMenuItem
          Caption = '&4 Players'
          GroupIndex = 1
          ShortCut = 0
          OnClick = N4Players1Click
        end
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object N3011: TMenuItem
        Caption = '&301'
        Checked = True
        ShortCut = 0
        OnClick = N3011Click
      end
      object N5011: TMenuItem
        Caption = '&501'
        ShortCut = 0
        OnClick = N5011Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object DoubleOut1: TMenuItem
        Caption = '&Double Out'
        Checked = True
        ShortCut = 0
        OnClick = DoubleOut1Click
      end
      object DoubleIn1: TMenuItem
        Caption = 'Double &In'
        ShortCut = 0
        OnClick = DoubleIn1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Contents1: TMenuItem
        Caption = '&Contents'
        ShortCut = 0
        OnClick = Contents1Click
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object About1: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer2Timer
    Left = 12
    Top = 260
  end
end